home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / otto11.zip / GETMAP < prev    next >
Text File  |  1992-02-11  |  1KB  |  52 lines
  1. ;This script retrieves several weather maps and downloads them to your 
  2. ;computer.  You'll need a .GIF viewer to view these files.  You will find 
  3. ;several in the GRAPHSUPPORT forum.  
  4.  
  5. ;Feel free to change which maps are to be downloaded.
  6.  
  7. ;This script runs with Autosig which supports the CIS/B protocol.  You 
  8. ;will need to make changes if you're using another download protocol. 
  9.  
  10. w c "!"
  11. "go maps|"
  12. w (-2,+0) "3 Ins"
  13. "1|"
  14. w c "more !"
  15. "|"
  16. w (-2,-1) "14 About"
  17.  
  18. "4|"            ;select "current weather" map
  19. w (-10,-1) "Select Protocol"
  20. "6|"            ;because it's the first download we must select a 
  21.                 ;download protocol. We won't be asked on subsequent downloads 
  22.  
  23. w c "computer :"
  24. "curweath.gif|" ;enter name to give the file, must have .GIF extension
  25.  
  26. ;if not using AUTOSIG you may need to use additonal commands to
  27. ;initiate downloading
  28.  
  29. g *Exist?*      ;gosub *Exist* routine
  30.  
  31. "5|"            ;select tommorrows weather
  32. w c "computer :"
  33. "tomweath.gif|" ;specify filename
  34. g *Exist?*
  35.  
  36. "8|"            ;select current temperatures
  37. w c "computer :"
  38. "curtemp.gif|"
  39. g *Exist?*
  40. end
  41.  
  42. ;checks to see if "File already exists" message appears and if so tell 
  43. ;CIS to overwrite the file, ELSE it waits until "more !" appears at cursor
  44.  
  45. *Exist?*
  46. if (+0,0) <> "File already exists" then *Chk1*
  47. "y|"
  48. *Chk1*
  49. if c <> "more !" then *Exist?*
  50. return          ;returns from subroutine
  51.  
  52.